Module ModuleLector
    Sub nuevoLector()
        FormLector.Text = "Agregar Lector"
        FormLector.btnAceptarLector.Text = "Agregar"
        FormLector.ShowDialog()
    End Sub
    Sub modificarLector()
        FormLector.Text = "Modificar Lector"
        FormLector.btnAceptarLector.Text = "Modificar"
        FormLector.ShowDialog()
    End Sub
    Sub eliminarLector()
        If MsgBox("Desea Eliminar al Lector Juan Pepe." & (Chr(13)) & "Numero de Lector: 00000123", MsgBoxStyle.YesNo, "Eliminar Lector") = MsgBoxResult.Yes Then
            MsgBox("Eliminado Exitosamente")
        End If
    End Sub
End Module
